home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
cg
/
savepage.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-11-07
|
1KB
|
41 lines
/* SavePage -- Save current char settings to rexx macro */
/* By Bob Caron ©1994 NewTek, Inc. */
call addlib(CG_AREXX,0)
filnam = 'ENV:SavePage.state'
version = 'SavePage v1.4'
if (exists(filnam)) then do
if (~open(state, filnam, 'R')) then break
if (readln(state) ~= version) then break
file=readln(state)
end
call close state
if file="" | file="FILE" then
file="toaster:CG/"||GET_PAGE(TYPE)||"Page"
if lastpos('/',file,length(file)-1)~=0 then do
filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
path=left(file,(lastpos('/',file,length(file))-1))
end
else do
filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
path=left(file,(lastpos(':',file,length(file))))
end
outfile=REQ_FILE("Save Page",filenam,path)
file=script
if (open(state, filnam, 'W')) then do
call writeln state, version
call writeln state, outfile
call close state
end
if outfile="" then
exit
call SAVEPAGE(outfile)